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G COMPLEX*16 Exponential 


Fab ; DetaileG Current Edit History 
DEC RRAT I0N 
MTHSCGEXP = perform G COMPLEX*16 exponentiation 


16-SEP-1984 01:08:57 VAX/VMS Macro v04-00 


MTHRTL.SRC REIN THCGEXP.MAR; 1 (1) 


MPLEX*16 Exponential 


P 
MTHSCGEXP G COMPLEX®#16 Exponential 16-SEP-1984 01: AX/VMS Macro V04-00 a 1 
M005 a yates rae Bt CIM i 

6 co 

File: MTHCGEXP MAR Edit: $BL1002 


MABRAAAAAAAAAAAAAAAAALALEASALA SALE AAS EASE AAA AAAR AAAS ARRAS ESAS RESALE RAL A ASS SS GS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION,” MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS oi UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE yg NOTICE. THIS SOFTWARE OR ANY OTHER 


polo lo lo lololeololololao) 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ae hat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


BILITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 


:* ® 
st * 
sf * 
s® * 
sf * 
st * 
st * 
st * 
:* * 
se O * 
;* TRANSFERRED. . 
st * 
st * 
3% * 
:% * 
:% * 
s% * 
:* * 
st * 
s* * 
st * 
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; ABSTRACT: 
Perform G COMPLEX*16 exponentiation: e**(r,i) 


: ; VERSION: 1 
: HISTORY: 


; ; AUTHOR: 
Steven B. Lionel, 20-July-1979 


; ; MODIFIED BY: 


SOOO OOCOCOSOSOSOSSOSSSOOSOSoOOoOoSoooooooooooooooooooosood 
NAMES WN OS ODNAUE WN (OOO NAU EWN $$ O OONAU EWN OOONOU Ewin 


Sooooo 


PEELE LS PWN inononononononononnny 2 2 


OOoOQoooQooooooooooooooooooocoooooooooooooo 


SOGOCOCOCOCOCOOCSCOOOOSOOOOOSoOooOOCoOoOOoO 


N 
i al NISTORY; Detertee Current Edit hte "ErSEp- 1986 P1:9805 UATARTE. SRESArHeceRP.man:1 "29° (3, at 


50 -SBTTL HISTORY ; DetaileG Current Edit History 


; Edit History 


4 : 1-001 = Adapted from MTHSCEXP version 1-002. SBL 20-July-1979 
0 5 3 1-883 - Use MTHSGEXP.. R6. SBL erg ion. 379 J 


8 
MTHSCGEXP G 6 Exponential 16-SEP-1984 01:08:57 VAX/VMS Macro 
M005 D tree Breaks $1 i5t 305 ¢ 


v04-00 
S MTHRTL.SRCJMTHCGEXP.MAR; 1 
-SBTTL DECLARATIONS 


MTH' 
Page (3) Tab 


+ INCLUDE FILES: 


| EXTERNAL SYMBOLS: 
BL GBL 


PAAAOAAOOOOUMM 


DWOONOULS WI OOaon~n 
. 


71 : MACROS: 
: NONE 


75 : PSECT DECLARATIONS: 


0000 76 ~-PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 


: EQUATED SYMBOLS: 


Oooooooooooooo 


Cocoa CDCO “I~ 
FwnO0@ 


: OWN STORAGE: 
: NONE 


MTHSCGEXP G COMPLEX®16 Exponential 16-SEP-1984 01:08:57 VAX/VMS Macro v04-00 Pa 4 MTH 
M005 MTHSCGEXP = perform G COMPLEX*16 exponen aaa 0139 :03 ERTHRTL SREIMTHCGEXP.MAR: 1 - (4) 1-0 
0 § -SBTTL MTHSCGEXP = perform G COMPLEX*16 exponentiation 
8 ++ 
4 3 FUNCTIONAL DESCRIPTION: 
0 91 ; The result of the operation e ** (r, i) is computed 
00088 nie 
000 oe ; result = (EXP(r) * COS(i), EXP(r) * SIN(i)) 
$09 38 ; CALLING SEQUENCE: 
4 3 3 CALL MTHSCGEXP (result.wgc.r, arg.rgc.r) 
00 Ss 
000 99 ; 
0000 100 ; INPUT PARAMETERS: 
00000008 44 19) arg = 8 : G COMPLEX*16 argument by reference 
0000 198 3; IMPLICIT INPUTS: 
0000 + 3 NONE 
0000 105; 
0000 106 ; OUTPUT PARAMETERS: 
00000004 44 4 result = 4 : G COMPLEX*16 result by reference 
0000 109 ; IMPLICIT OUTPUTS: 
0000 110; NONE 
0000 111; 
0000 11 ; COMPLETION CODES: 
0000 113; NONE 
0000 114; 
0000 115 ; SIDE EFFECTS: 
00006 116 ; Signals: MTHS$_SINSIGLOS if ‘i! > 2*PI*2**#31, 
0000 +=(117; ~ Floating Overflow if r > 88.028 
0000 118; 
0000 119 ;-- 
0000 139 
0000 121 
OOFC 0000 \$6 eENTRY MTHSCGEXP, “M<R2,R3,R4,R5,R6,R7> 
anne 12 MTHSFLAG_JACKET : resignal 
6D 00000000 ' GF 9E $09 MOVAB G*MTHSSJACKET_HND, (FP) ; 
0009 3; set handler address to jacket 
0009 3: handler 
09 
09 124 
50 08 B6C 7D 09 125 MOVQ Borgcar) RO 3; RO-R1 = real pert 
00000000 * EF 16 44 1 § JSB MTHSGEXP_R6 3; RO-R1 = EXP(r 
7E 50 7D Biz ' MOVQ RO, -(SPY ; Save it on the stack 
50 08 ac 00 Bi6 ' ; MOVL arg(AP), RO ; RO is address of arg 
50 O8A 7D OIA 131 MOVa 8(RO), RO ; RO-R1 = imaginary part 
— wo 70 QO1E 1 § mova RO,-(SP) 3; Save ineginery part 
0 COO'EF 16 : JSB MTHSGCOS_R7 ; RO-R1 = COSI 
04 Bc 0 of 0 45FD 7 134 MULGS RO, 8(SPY, @result(AP) ; Store real part . 
a Bs} MOVa (SP)+, R ; Get_ imaginary part again 
099 000°EF 16 0 oe 6 JSB MTHSGSIN_R7 > RO-R1 = SIN(1) 
5 4 AC 00 Ps MOVL result(AP), R2 : Address of result 


08 A288 50 45FD 1 M RO, (SP)+, 8(R2) : imagi 
E fo ; i 4s a 0, (SP)+, 8(R2 Store imaginary part 
4 14 
4 


4 
0 


it hal Grasceae e pere Onentta se veté « exponen :* EP =1382 9:99:38 FRTARTL eRe OTHEGE RE. MAR: 1 — ay 
142 ~ END 

| 

| 
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MTHSCGEXP 
Symbol table 


Page faults 


Initialization 

Command processing 5 
Pass 1 7 
pyenes table sort 0 
Pass 2 40 
Symbol table output 2 
Psect synopsis output 2 
Cross-reference output 0 
Assembler run totals 7 


et Limit was 900 


The working 
pages) of virtua 


ages. 
2344 bytes ( 


202 source Lines were read in Pass 1 


Macro Library name 


"$255$DUA28: CSYSLIBISTARLET.MLB; 2 


G COMPLEX*16 


0 GETS were required to define 0 macros. 


Exponential 


ARG = 00000008 
piepepecee’ _HND- eeereree § 6X 1 
MTHSCGEXP 00000000 RG 1 
MTHSGCOS_R7 eeereeee 8X 0 
MTHSGEXP_R eeeeeere 8 6X 0 
MTHSGSIN_R eeterere 8X 0 
ULT = 00000004 
feeeseocemcoe ean aae + 
: Psect synopsis : 
janet nooo me + 
PSECT name Allocation PSECT No. Attributes 
ABS 00000000 < 0.) 00 ( 0.) NOPIC USR 
MTHSCODE 00000042 ( 66.) O01 ¢ 1.) PIC USR 


CPU Time Elapsed Time 
00:00:00.07 00:00:01.02 
00:00:00.68 00:00:05 .80 
00:00:00.69 00:00:04.38 
00:00:00.00 00:00:00.00 
00:00:00.48 00:00:01.93 
00:00:00.01 00:00:00.01 
00:00:00.02 00:00:00.02 
89:99:00. 00 00:00:00.00 
00:00:01.9 00:00:13.18 


object records in Pass 


There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHCGEXP/OBJ=OBJ$:MTHCGEXP MSRCS$:MTHJACKET/UPDATE=(ENHS :MTHJACKET) +MSRC 


CON 
CON 


memory were used to buffer the intermediate code. 
There were 10 pages of symbol table oe Si to hold 
producin 
1 page of virtual memory was used to define 1 heer’ 


1 S1:SHEE YAN Ses 


ABS 
REL 


L 
L 


C 
C 


L 
L 


7 non-local and 0 local symbols. 


v04-00 
MIMRTL. SR RCIM MTHCGEXP.MAR; 1 


ot + NOEXE NORD NOWRT NOVEC BYTE 
SHR EXE RD NOWRT NOVEC LONG 
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